home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / IFDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  999 b   |  39 lines
  1. PROGRAM demonstrate_conditional_branching;
  2.  
  3. VAR one,two,three  : INTEGER;
  4.  
  5. BEGIN  (* main program *)
  6.   one := 1;           (* these are to have some numbers *)
  7.   two := 2;           (* to use for illustrations *)
  8.   three := 3;
  9.  
  10.   IF three = (one + two) THEN        (* Example 1 *)
  11.     WRITELN('three is equal to one plus two');
  12.  
  13.   IF three = 3 THEN                  (* Example 2 *)
  14.   BEGIN
  15.     WRITE('three is ');
  16.     WRITE('equal to ');
  17.     WRITE('one plus two');
  18.     WRITELN;
  19.   END;
  20.  
  21.   IF two = 2 THEN                    (* Example 3 *)
  22.     WRITELN('two is equal to 2 as expected')
  23.   ELSE
  24.     WRITELN('two is not equal to 2... rather strange');
  25.  
  26.   IF two = 2 THEN                    (* Example 4 *)
  27.     IF one = 1 THEN
  28.       WRITELN('one is equal to one')
  29.     ELSE
  30.       WRITELN('one is not equal to one')
  31.   ELSE
  32.     IF three = 3 THEN
  33.       WRITELN('three is equal to three')
  34.     ELSE
  35.       WRITELN('three is not equal to three');
  36.  
  37. END.  (* main program *)
  38.  
  39.